-- card: 2966 from stack: in.8
-- bmap block id: 7067
-- flags: 0000
-- background id: 2765
-- name: Origin
----- HyperTalk script -----
on elong
  go first cd
  put line 5 of fld Pos of cd sun into sra
  put line 6 of fld Pos of cd sun into sdec
  repeat with i=4 to 10
    set cursor to busy
    put (sra -  line 5 of fld Pos of cd i) into dra
    put (sdec - line 6 of fld Pos of cd i) into ddec
    put (dra+360) mod 360 into arg
    --put arg
    --pause
    if arg>180 then
      get round(sqrt((360-arg)*(360-arg) + ddec*ddec))
      put "E" into dir
    else
      get round(sqrt(arg*arg + ddec*ddec))
      put "W" into dir
    end if
    put (short name of cd i) & " -- " & it && dir into line i-3 of cd fld "elong"
  end repeat
end elong


-- part 2 (field)
-- low flags: 81
-- high flags: 4001
-- rect: left=4 top=24 right=74 bottom=471
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 15026
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Sidereal Cheb


-- part 9 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=129 top=74 right=140 bottom=208
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 15026
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Coords


-- part 18 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=36 top=310 right=331 bottom=174
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Update for Today
----- HyperTalk script -----
on mouseUp
  global force
  put true into force
  repeat with i=2 to 10
    go card i
  end repeat
  put false into force
  send mouseUp to bg btn conj
  go cd origin
  elong
end mouseUp



-- part 23 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=38 top=243 right=280 bottom=271
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 15011
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Algol


-- part 24 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=272 top=164 right=281 bottom=389
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 15026
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Elong


-- part 31 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=40 top=163 right=226 bottom=239
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Daily


-- part 33 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=365 top=310 right=331 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Occultations
----- HyperTalk script -----
on mouseUp
  global total,userName
  if "Mike Kaz" is in userName then exit mouseUp
  Answer "Are you really sure??? (Can't be undone!)" with "No" or "Yes"
  if it is "No" then exit mouseUp
  put "Now deleting Lunar Occultation Things.  Please wait..."
  set lockMessages to true
  set lockScreen to true
  go cd "Moon"
  put false into total
  choose fld tool
  repeat until (number of cd flds) = 0
    click at the loc of cd fld 1
    doMenu "Cut Field"
  end repeat
  choose btn tool
  repeat until (number of cd btns) = 0
    click at the loc of cd btn 1
    doMenu "Clear Button"
  end repeat
  choose tool 4
  drag from 41,77 to 164,113
  doMenu "Clear Picture"
  go first cd
  choose btn tool
  click at the loc of btn "Delete Occultations"
  doMenu "Clear Button"
  click at the loc of bg btn "topo"
  doMenu "Clear Button"
  choose fld tool
  click at the loc of fld pct
  put "Click on Delete button..."
  doMenu "Cut Field"
  put "Occultation Delete Complete..."
  wait 90 ticks
  hide message box
  choose browse tool
end mouseUp



-- part contents for card part 9
----- text -----
33.57500
-84.001639
238
5.0 (EDT)

-- part contents for background part 7
----- text -----
Sidereal Time = 5:46
5.773

-- part contents for background part 6
----- text -----
Universal Time = 21:22
21.383
226

-- part contents for background part 14
----- text -----
Card

-- part contents for background part 31
----- text -----
Julian Date = 2448003.391

-- part contents for card part 23
----- text -----
Next minimum of Algol occurs in 21.5 hours at JD=2448004.288
48004.288

-- part contents for background part 10
----- text -----





-- part contents for background part 39
----- text -----
 11%-

-- part contents for card part 24
----- text -----
Mercury -- 17 E
Venus -- 45 W
Mars -- 61 W
Jupiter -- 67 E
Saturn -- 98 W
Uranus -- 115 W
Neptune -- 109 W


-- part contents for card part 31
----- text -----
1990

-- part contents for card part 2
----- text -----
37.43472829 12.02491879 .00000373 -.00000031 .00000479 .00001635 -.00000308 -.00000598 -.00000087 .00000071 

-- part contents for background part 13
----- text -----
Ori

4.51838

-- part contents for background part 28
----- text -----
21 April 1990